home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8612.d64
/
skaltrans (allg)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
76 lines
10 REM ********* TRANSFORMATIONEN TEST ************
15 A=0:B=0:C=0:D=0:I=0:J=0:K=0:L=0:XU=0:XO=64:YU=0:YO=40:A$=""
20 DIM P(2,6,3),M(1,3,3)
25 REM -------- BELEGEN DER PUNKTEMATRIX ---------
30 DATA 0,0,15,0,15,9,7.5,13,0,9
35 FOR I=1 TO 5
40 :FORJ=1TO2
45 ::READ P(0,I,J)
50 :NEXTJ
55 :P(0,I,3)=1
60 NEXTI
65 P(0,6,1)=P(0,1,1):P(0,6,2)=P(0,1,2):P(0,6,3)=P(0,1,3)
70 REM -------- BELEGEN DER MATRIX M(1,..) -------
75 M(1,1,1)=319/(XO-XU):M(1,2,2)=-199/(YO-YU):M(1,3,3)=1
80 FORI=1TO3
85 :FORJ=1TO3
90 ::IFI=JTHEN100
95 ::M(1,I,J)=0
100 :NEXTJ
105 NEXTI
110 M(1,3,2)=199
200 REM ------- HAUPTPROGRAMM - SKALTRANS ------
205 REM --- BELEGEN VON M(0,...) --------
210 FOR I = 1 TO 3
215 :FOR J = 1 TO 3
220 ::M(0,I,J)=0
225 :NEXT J
230 NEXT I
235 M(0,1,1)=0.1:M(0,2,2)=0.1:M(0,3,3)=1
240 GOSUB655
245 REM --- ZENTRALE SCHLEIFE -----------
250 FOR L = 1 TO 10
255 :M(0,1,1)=M(0,1,1)+.1:M(0,2,2)=M(0,2,2)+.1
260 :B=0:A=1:D=0:GOSUB550
265 :B=1:A=2:D=1:GOSUB550
270 :GOSUB630
275 NEXT L
280 GOSUB670
285 END
500 REM +++++++++++ UP MATRIMULT +++++++++++++
505 REM EINE 3,3-MATRIX M UND EINE 6,3-MATRIX
510 REM P WERDEN MITEINANDER MULTIPLIZIERT.
515 REM I,J,K = SCHLEIFENVARIABLE
520 REM C = ZWISCHENWERT
525 REM A UND B NUMMER DER 6,3-MATRIX P:
530 REM B = AUSGANGSMATRIX
535 REM A = ERGEBNISMATRIX
540 REM D IST DIE NUMMER DER 3,3-MATRIX M
545 REM ++++++++++++++++++++++++++++++++++++++
550 FORI=1TO6
555 :FORJ=1TO3
560 ::C=0
565 ::FORK=1TO3
570 :::C=C+P(B,I,K)*M(D,K,J)
575 ::NEXTK:P(A,I,J)=C
580 :NEXTJ
585 NEXTI
590 RETURN
600 REM ++++++++ UP ZEICHNEN (ALLG) +++
605 REM I = SCHLEIFENVARIABLE
610 REM A$ = VARIABLE FUER TASTENDRUCK
615 REM P IST DIE 6,3-PUNKTEMATRIX
620 REM A IST DIE NUMMER DIESER MATRIX
625 REM +++++++++++++++++++++++++++++++
630 FORI=1TO5
635 :LINIE(P(A,I,1),P(A,I,2),P(A,I+1,1),P(A,I+1,2))
640 NEXTI
645 RETURN
650 REM --- GRAFIK EINSCHALTEN --------
655 INIT:START
660 RETURN
665 REM --- GRAFIK AUSSCHALTEN --------
670 SHOW
675 NORMAL
680 RETURN